(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4086,        133]
NotebookOptionsPosition[      3652,        113]
NotebookOutlinePosition[      3995,        128]
CellTagsIndexPosition[      3952,        125]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"a", "b", "c"},
        {"d", "e", "f"},
        {"g", "h", "i"}
       }], "\[NoBreak]", ")"}], ".", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"0", "0", "1"},
        {"0", "1", "0"},
        {"1", "0", "0"}
       }], "\[NoBreak]", ")"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5303512287790766`*^9, 3.530351311409803*^9}, {
  3.530351376064501*^9, 3.530351410110448*^9}, {3.5303515253320384`*^9, 
  3.53035155403668*^9}, {3.5303515986462317`*^9, 3.5303516304250493`*^9}, {
  3.5303516677511845`*^9, 3.5303516879123373`*^9}, {3.5303517584773736`*^9, 
  3.5303517664968324`*^9}, {3.5303518859296637`*^9, 3.5303519824781857`*^9}}],\


Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"c", "b", "a"},
     {"f", "e", "d"},
     {"i", "h", "g"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.530351313048897*^9, {3.5303513784396367`*^9, 3.5303514123595767`*^9}, {
   3.5303515346665726`*^9, 3.53035155508474*^9}, {3.530351606448678*^9, 
   3.5303516315831156`*^9}, {3.5303516756306353`*^9, 3.530351691506543*^9}, 
   3.530351773506233*^9, {3.5303518982753696`*^9, 3.530351991541704*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"a", "b", "c"},
        {"d", "e", "f"},
        {"g", "h", "i"}
       }], "\[NoBreak]", ")"}], "]"}], ".", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "1"},
       {"0", "1", "0"},
       {"1", "0", "0"}
      }], "\[NoBreak]", ")"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.530352131589714*^9, 3.5303521331698046`*^9}, {
  3.5303521656676636`*^9, 3.5303521687228384`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"g", "h", "i"},
     {"d", "e", "f"},
     {"a", "b", "c"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.530352134042855*^9, 3.530352169497883*^9}]
}, Open  ]]
},
WindowSize->{592, 890},
WindowMargins->{{445, Automatic}, {37, Automatic}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 822, 19, 58, "Input"],
Cell[1417, 45, 935, 23, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2389, 73, 565, 16, 58, "Input"],
Cell[2957, 91, 679, 19, 72, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

